﻿Public Class Jugador
    Inherits Personaje
    'Propiedades
    Private idJugador As Integer
    Private idPersonaje As Integer
    Private clase As String
    Private arma As String
    Private experiencia As Integer

    'Constructor
    Public Sub New(ByVal nombre As String, _
                   ByVal alineamiento As Integer, _
                   ByVal nivel As Integer, _
                   ByVal armadura As Integer, _
                   ByVal aventura As Aventura, _
                   ByVal combates As ArrayList, _
                   ByVal caract As ArrayList, _
                   ByVal idjugador As Integer, _
                   ByVal idpj As Integer, _
                   ByVal clase As String, _
                   ByVal arma As String, _
                   ByVal experiencia As Integer)
        MyBase.New(nombre, alineamiento, nivel, armadura, aventura, combates, caract)
        Me.idJugador = idjugador
        Me.idPersonaje = idpj
        Me.clase = clase
        Me.arma = arma
        Me.experiencia = experiencia
    End Sub

    'Metodos:

    '________SETTERS_________

    Public Sub setIdJugador(ByVal idjugador As String)
        Me.idJugador = idjugador
    End Sub
    Public Sub setIdPersonaje(ByVal idpersonaje As Integer)
        Me.idPersonaje = idpersonaje
    End Sub
    Public Sub setClase(ByVal clase As String)
        Me.clase = clase
    End Sub
    Public Sub setArma(ByVal arma As String)
        Me.arma = arma
    End Sub
    Public Sub setExperiencia(ByVal experiencia As Integer)
        Me.experiencia = experiencia
    End Sub

    '________GETTERS_________
    Public Function getIdJugador() As Integer
        Return Me.idJugador
    End Function
    Public Function getIdPersonaje() As Integer
        Return Me.idPersonaje
    End Function
    Public Function getClase() As String
        Return Me.clase
    End Function
    Public Function getArma() As String
        Return Me.arma
    End Function
    Public Function getExperiencia() As Integer
        Return Me.experiencia
    End Function

End Class
